viết chương trình pascal tính tổng 10 số tự nhiên đầu tiên nhập từ bàn phím ( viết bằng thuật toán bài 6)
giúp mik lẹ vs ạ mai mik thi
Những câu hỏi liên quan
Viết chương trình nhập từ bàn phím các phần tử của 1 dãy số.Độ dài N nhập từ bàn phím.Tính tổng các phần tử số chẵn vừa nhập và in ra màn hình. Giúp mik vs ạ mai mik thi r😭
program TongSoChanTrongDay;
var
n, i, tong: integer;
a: array[1..100] of integer;
begin
tong := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
tong := tong + a[i];
end;
writeln('Tong cac phan tu chan trong day la: ', tong);
readln;
end.
Đúng 1
Bình luận (0)
đề 1:viết chương trình tính tổng của 10 số tự nhiên đầu tiên
đề 2:viết chương trình tính tổng L 5 số tự nhiên đầu tiên(với L đc nhập từ bàn phím)
giúp mk nhé!!!!!!
tự làm là nhanh nhất
ai đòng ý xin 1 ý kiến
Đúng 0
Bình luận (2)
đề 1:viết chương trình tính tổng của 10 số tự nhiên đầu tiên
đề 2:viết chương trình tính tổng L 5 số tự nhiên đầu tiên(với L đc nhập từ bàn phím)
giúp mk nhé!!!!!!
1.
program tinhtong;
uses crt;
var s,i,n:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+1;
writeln ('tong cua s=',s);
readln
end.
2.
program tinhtong;
uses crt;
var i,L,s:integer;
begin
write('nhap gia tri L='); readln(L);
s:=0;
for i:=1 to L do s:=s+1;
writeln('tong cua s=',s);
readln
end.
Đúng 1
Bình luận (1)
Bài tập 1: Viết chứng trình tính tổng 3 số nguyên được nhập từ bàn phím
Bài tập 2: Viết chương trình nhập vào một số và in ra màn hình kết quả số chẵn hay số lẻ
Bài tập 3: Mô tả thuật toán tính tổng của 100 số tự nhiên đầu tiên
program bai1;
uses crt;
var a,b,c,s: real;
begin
clrscr;
write('nhap so thu nhat ='); readln(a);
write('nhap so thu hai ='); readln(b);
write('nhap so thu ba ='); readln(c);
s:=a+b+c;
writeln('tong ba so a,b,c =',s:4:2);
readln;
end.
Đúng 0
Bình luận (0)
program bai1;
uses crt;
var n: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
if n mod 2 = 0 then
writeln('la so chan ') else
writeln('la so le ');
readln;
end.
Đúng 0
Bình luận (0)
bài 3 :
B1: S <- 0 ; i<-0;
B2: i<- i+1;
B3: Nếu i <= 100 thì S:=S+i; Và quay lại B2.TRong trường hợp ngược lại thông bào kết quả rồi kết thúc thuật toán.
Đúng 0
Bình luận (1)
VIẾT THUẬT TOÁN VÀ CHƯƠNG TRÌNH PASCAL Các bài toán sau Tính giá trị biểu thức a= x2+x+1( với x nhập từ bàn phím ) mong giúp gắp ạ
uses crt;
var x:integer;
begin
clrscr;
readln(x);
writeln(x*x+x+1);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình tính tổng n số tự nhiên đầu tiên với n nhập ra từ bàn phím (đây là chương trình C++ ấy ạ)
var n,i,s:longint; begin write('nhap so n=');readln(n); s:=0; for i:=1 to n do s:=s+i; writeln(' tong n so nguyen la:',s); readln; end.
Đúng 0
Bình luận (0)
Câu 1:
#include <bits/stdc++.h>
using namespace std;
long long n,i,s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++) s+=i;
cout<<s;
return 0;
}
Đúng 1
Bình luận (0)
Hãy viết chương trình tính tổng 50 số nguyên đầu tiên (n số nguyên, nhập từ bàn phím) dựa vào thuật toán sau: THUẬT TOÁN: B1: đặt tổng s
AI GIÚP MIK BÀI NÀY VS
1) viết chương trình tính tổng 100 số tự nhiên đầu tiên
2. viết chương trình kiểm tra số n nhập từ bàn phím có chia hết cho hai số 2 và 3 không. nếu có thì in ra dòng chữ chia hết và không chia hết
bài 1:
var i,n : integer;
writeln('nhap n');
readln(n);
for i:=1 to 100 do
s:=s+i;
writeln('tong la",s);
readln;
end.
bài 2:
var n:real;
begin
writeln('nhap n');
if n (mod 2=0) and (n mod 3=0) then
writeln('chia het roi')
else writeln(khong chia het');
readln;
end.
Đúng 0
Bình luận (0)
Bài 1: Viết chương trình tính tổng các số chẵn từ 10 đến 50?
Bài 2: Viết chương trình giải bài toán sau: Tính tổng A ( n là số tự nhiên được nhập từ bàn phím)
A= 1.3 + 2.4 + 3.5 +...+ n(n+2).
Giúp mình với nhanh nhanh nha.
Bài 1:
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=10 to 50 do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var a,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+i*(i+2);
writeln(a);
readln;
end.
Đúng 2
Bình luận (0)